www.gusucode.com > 6KBBS ASP版 V7.1 > 6KBBS ASP版 V7.1\code\bbs\Cookies.asp

    <!--#include file="conn.asp"--><!--#include file="inc/fun.asp"-->
<%
dim comeurl,action,lgcook,lgtype,lguserid,indexinfo,gonggao,lm,online,userinfo,id,svote,voteduser,outtime,votetype,voten,i,votenum,votenum2,canvote,voteduser2,styleid,mode
lguserid=checknum(session(prefix&"lguserid"))
comeurl=Request.ServerVariables("HTTP_REFERER")
lgcook=checknum(Request.Cookies(prefix)("lgcook"))

action=request.querystring("action")
select case action
	case"lgtype"
		if lguserid="" or isnull(lguserid) then response.redirect"login.asp"
		lgtype=checknum(request.querystring("lgtype"))

		if lgtype="" then lgtype=1
		if lgtype=1 then Response.Cookies(prefix)("lgtype")=1:conn.execute("update online set showyn=true where userid="&lguserid&"")
		if lgtype=2 then Response.Cookies(prefix)("lgtype")=2:conn.execute("update online set showyn=false where userid="&lguserid&"")
		if lgcook>0 then Response.Cookies(prefix).Expires=date+lgcook

	case "bbsmode"
		mode=checknum(request.querystring("mode"))
		if mode="" then mode=application(prefix&"automode")
		
		Response.Cookies(prefix&"1")("bbsmode")=mode
		Response.Cookies(prefix&"1").Expires=date+365
		Response.redirect"index.asp"
		
	case"vote"
		if lguserid="" or isnull(lguserid) then response.redirect"login.asp"
		id=checknum(request.querystring("id"))
		set svote=conn.execute("select*from vote where id="&id&"")
		voteduser=svote("voteduser")
		voteduser2=voteduser
			if isnull(voteduser2) or voteduser2="" then voteduser2="|0"
		voteduser2=split(voteduser2,"|")
		outtime=svote("outtime")
		canvote=true
			if outtime<now()+timeset/24 then
			canvote=false
			else
				for i=1 to ubound(voteduser2)
				if isnull(lguserid) or lguserid="" then canvote=false:exit for
				if int(voteduser2(i))=lguserid then canvote=false:exit for
				next
			end if
			if canvote=false then response.end
		
		votetype=svote("type")
		voten=svote("votenum")
		voten=split(voten,"|")
		
		if votetype=1 then
		votenum=checknum(request.form("votenum"))
			for i=1 to ubound(voten)
			if i=votenum then voten(i)=voten(i)+1
			votenum2=votenum2&"|"&voten(i)
			next
		end if
		
		if votetype=2 then
			for i=1 to ubound(voten)
			votenum=checknum(request.form("votenum_"&i&""))
			if votenum=1 then voten(i)=voten(i)+1
			votenum2=votenum2&"|"&voten(i)
			next
		end if
		
		set svote=nothing
		
		voteduser=voteduser&"|"&lguserid
		conn.execute("update [vote] set votenum='"&votenum2&"',voteduser='"&voteduser&"' where id="&id&"")
		conn.execute("update topic set edittime=now()+"&timeset&"/24 where id="&id&"")
	
	case"style"
		dim sql
		id=checknum(request.querystring("id"))
		
		if isnull(id) or id="" then
			sql="select*from style where autouse=true"
			comeurl="index.asp"
		else
			sql="select*from style where id="&id&""
		end if
		
		set rs=conn.execute(sql)
			If rs.Eof Then Response.Write"错误的风格参数！":Response.End:closedb
			styleid=rs("styleid")
		set rs=nothing
		'写入cookies
		Response.cookies(prefix&"1")("styleid")=styleid
		Response.Cookies(prefix&"1").Expires=date+365
		
		if request.cookies(prefix&"1")("styleid")="" then
			response.write"对不起！您的 Internet Explorer 浏览器可能不支持 Cookies，不能使用本论坛。建议你刷新本页重试。"
			response.end
		else
			if comeurl="" then comeurl="index.asp"
		end if
	
end select
			if InStr(comeurl,"cookies") then comeurl="index.asp"
response.redirect comeurl
%>